Avoid a compilation warning in srt-mode.el

* lisp/cedet/srecode/srt-mode.el (srecode-macro-help): Add hack to
avoid compilation warning about slot that has to exist at this
point.

diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index 1b58ce326cecf2b0a95e57b38415317f0bdf044c..660225925e0460852c0af6ab637ac49db3cdd165 100644 (file)
--- a/lisp/cedet/srecode/srt-mode.el
+++ b/lisp/cedet/srecode/srt-mode.el
@@ -247,9 +247,10 @@ we can tell font lock about them.")
        (let* ((C (car chl))
               (name (symbol-name C))
               (key (when (slot-exists-p C 'key)
-                     (oref C key)))
-              (showexample t)
-              )
+                      ;; This avoids a compilation warning, but we
+                      ;; know that 'key exists here.
+                     (slot-value C (intern "key" obarray))))
+              (showexample t))
          (setq chl (cdr chl))
          (setq chl (append (eieio-class-children C) chl))